home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Magazine / Online / httpproxy / checkrexx.rexx < prev    next >
OS/2 REXX Batch file  |  1996-08-20  |  429b  |  20 lines
  1. /* check whether scripts are ARexx script. Returns 0 when all given scripts are ARexx-Scripts */
  2.  
  3. /* ARexx scripts have to start with a comment in the first line... */
  4. parse arg AllArgs
  5.  
  6. do forever
  7.    parse VAR AllArgs File AllArgs
  8.    if File == "" then
  9.       leave
  10.    if (open("r",File,"READ") ~= 1) then
  11.       exit 20
  12.    line = readln("r")
  13.    call close("r")
  14.    if (index(strip(line),"/*") ~= 1) then
  15.       exit 1
  16. end
  17.  
  18. exit 0
  19.  
  20.